
 move.l	$04,a6
 lea	gfxname,a1
 jsr	-408(a6)
 move.l	d0,gfxbase
 move.l	d0,a0
 move.l	50(a0),oldclist
 move.l	#newclist,50(a0)
 move.l	gfxbase,a6
 move.l  #188,as
 lea	bitmap,a0
 move.l	#$01,d0
 move.l	#336,d1
 move.l	#200,d2
 jsr	-390(a6)
 move.l	#$60000,plane1
 lea	rastport,a1
 jsr	-198(a6)
 move.l	#bitmap,r_bitmap
 lea	rastport,a1
 jsr	-48(a6)
 move.l	#scrollm1,zeiger1
 move.l	#scrollm,zeiger
 move.l	#scrollm2,zeiger2
 move.l	$6c,oldirq+2
 move.l	#newirq,$6c
 wait:
 btst	#6,$bfe001
 bne.s	wait
 move.l	oldirq+2,$6c
 move.l	gfxbase,a0
 move.l	oldclist,50(a0)
 move.l	$04,a6
 move.l	gfxbase,a1
 jsr	-414(a6)
 move.w  #$8020,$dff096
 rts
 
 **  eerste scroll **
 newirq:
 movem.l	d0-d7/a0-a6,-(sp)
 move.l	gfxbase,a6
 lea	rastport,a1
 move.l	#04,d0
 clr.l	d1
 move.l	#0,d2
 move.l	#68,d3
 move.l	#336,d4
 move.l	#76,d5
 jsr	-396(a6)
 
 sub.b	#$01,rows1
 bne.s	exit1
 move.b	#2,rows1
 lea	rastport,a1
 move.l	#320,d0
 move.l	#75,d1
 jsr	-240(a6)
 lea	rastport,a1
 move.l	zeiger1,a0
 move.l	#1,d0
 jsr	-60(a6)
 add.l	#1,zeiger1
 cmp.l	#end1,zeiger1
 blt.s	exit1
 move.l	#scrollm1,zeiger1
 exit1:
 ;movem.l	(sp)+,d0-d7/a0-a6
 
 
 **  derde scroll  **
 move.l	gfxbase,a6
 lea	rastport,a1
 move.l	#01,d0
 clr.l	d1
 move.l	#0,d2
 move.l	#166,d3
 move.l	#336,d4
 move.l	#196,d5
 jsr	-396(a6)
 
 sub.b	#$01,rows2
 bne.s	exit2
 move.b	#8,rows2
 lea	rastport,a1
 move.l	#320,d0
 move.l	#172,d1
 jsr	-240(a6)
 lea	rastport,a1
 move.l	zeiger2,a0
 move.l	#1,d0
 jsr	-60(a6)
 add.l	#1,zeiger2
 cmp.l	#end2,zeiger2
 blt.s	exit2
 move.l	#scrollm2,zeiger2
 
exit2:
 ;movem.l	(sp)+,d0-d7/a0-a6
 **  tweede scroll **
 move.l	gfxbase,a6
 lea	rastport,a1
 clr.l   d0
 move.l  #01,d1
 clr.l	d2
 move.l	#85,d3
 move.l	#336,d4
 move.l	#161,d5
 jsr	-396(a6)
 
 sub.b	#$01,rows
 bne.s	exit
 move.b	#30,rows
 lea	rastport,a1
 move.l	#00,d0
 move.l	#160,d1
 jsr	-240(a6)
 lea	rastport,a1
 move.l	zeiger,a0
 move.l	#38,d0
 jsr	-60(a6)
 add.l	#38,zeiger
 cmp.l	#end,zeiger
 blt.s	exit
 move.l	#scrollm,zeiger
exit:
	movem.l	(sp)+,d0-d7/a0-a6
	rts
oldirq:
 jmp	$00000000

newclist:
 dc.w    $0009,$fffe,$0096,$0020
 dc.w    $000b,$fffe,$0180,$0000,$000b,$fffe,$0180,$0000
 dc.w	$008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
 dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
 dc.w	$0100,$1200,$0180,$0000,$0182,$0ff0
 dc.w	$00e0,$0006,$00e2,$0000
 
	dc.w $3807,$fffe,$0182,$0ff0
	dc.w $6807,$fffe,$0180,$0003
	dc.w $6907,$fffe,$0180,$0004
	dc.w $6a07,$fffe,$0180,$0005
	dc.w $6b07,$fffe,$0180,$0006
	dc.w $6c07,$fffe,$0180,$0007
	dc.w $6d07,$fffe,$0180,$0008
	dc.w $6e07,$fffe,$0180,$0009
	dc.w $6f07,$fffe,$0180,$000a
	dc.w $7007,$fffe,$0180,$000b
	dc.w $7107,$fffe,$0180,$000c
	dc.w $7207,$fffe,$0180,$000d
	dc.w $7307,$fffe,$0180,$000e
	dc.w $7407,$fffe,$0180,$000f
	dc.w $7507,$fffe,$0180,$000e
	dc.w $7607,$fffe,$0180,$000d
	dc.w $7707,$fffe,$0180,$000c
	dc.w $7807,$fffe,$0180,$000b
	dc.w $7907,$fffe,$0180,$000a
	dc.w $7a07,$fffe,$0180,$0009
	dc.w $7b07,$fffe,$0180,$0008
	dc.w $7c07,$fffe,$0180,$0007
	dc.w $7c07,$fffe,$0182,$0000
	dc.w $7d07,$fffe,$0180,$0006
	dc.w $7e07,$fffe,$0180,$0005
	dc.w $7f07,$fffe,$0180,$0004
	dc.w $8007,$fffe,$0180,$0003
	dc.w $8107,$fffe,$0180,$0002
	dc.w $8207,$fffe,$0180,$0000	;color0 = $0000 (black)


	dc.w $8207,$fffe,$0182,$0220
	dc.w $8307,$fffe,$0182,$0440
	dc.w $8407,$fffe,$0182,$0660
	dc.w $8507,$fffe,$0182,$0880
	dc.w $8607,$fffe,$0182,$0aa0
	dc.w $8707,$fffe,$0182,$0cc0
	dc.w $8807,$fffe,$0182,$0ee0
	dc.w $8907,$fffe,$0182,$0ff0


	dc.w $c107,$fffe,$0182,$0ff0
	dc.w $c207,$fffe,$0182,$0ee0
	dc.w $c307,$fffe,$0182,$0cc0
	dc.w $c407,$fffe,$0182,$0aa0
	dc.w $c507,$fffe,$0182,$0880
	dc.w $c607,$fffe,$0182,$0660
	dc.w $c707,$fffe,$0182,$0440
	dc.w $c807,$fffe,$0182,$0220
	dc.w $c807,$fffe,$0180,$0002
	dc.w $c907,$fffe,$0180,$0003
	dc.w $ca07,$fffe,$0180,$0004
	dc.w $cb07,$fffe,$0180,$0005
	dc.w $cc07,$fffe,$0180,$0006
	dc.w $cd07,$fffe,$0180,$0007
	dc.w $cd07,$fffe,$0182,$0ff0
	dc.w $ce07,$fffe,$0180,$0008
	dc.w $cf07,$fffe,$0180,$0009
	dc.w $d007,$fffe,$0180,$000a
	dc.w $d107,$fffe,$0180,$000b
	dc.w $d207,$fffe,$0180,$000c
	dc.w $d307,$fffe,$0180,$000d
	dc.w $d407,$fffe,$0180,$000e
	dc.w $d507,$fffe,$0180,$000f
	dc.w $d607,$fffe,$0180,$000e
	dc.w $d707,$fffe,$0180,$000d
	dc.w $d807,$fffe,$0180,$000c
	dc.w $d907,$fffe,$0180,$000b
	dc.w $da07,$fffe,$0180,$000a
	dc.w $db07,$fffe,$0180,$0009
	dc.w $dc07,$fffe,$0180,$0008
	dc.w $dd07,$fffe,$0180,$0007
	dc.w $de07,$fffe,$0180,$0006
	dc.w $df07,$fffe,$0180,$0005
	dc.w $e007,$fffe,$0180,$0004
	dc.w $e107,$fffe,$0180,$0003
	dc.w $e207,$fffe,$0180,$0002
	dc.w $e307,$fffe,$0180,$0000


	dc.w $ffff,$fffe	;copper-end must be $ffff,$fffe

scrollm:
;        12345678901234567890123456789012345678
 
 DC.B	"              THE FAT BOYS            "
 dc.b    "            SHAKE HANDS WITH          "
 dc.b    "        ------------------------      "
 DC.B    "                 DAMAGE               "
 DC.B    "                MEGALINE              "
 DC.B    "                 DYNAX                "
 DC.B    "             PENDLE EUROPA            "
 DC.B    "                PHANTOM               "
 DC.B    "               T.L.T.K.C.             "
 DC.B    "              THE CARDINALS           "
 DC.B    "           THE POWERCONNECTION        "
 dc.b    "                PENTAGON              "
 DC.B	"                THE REBEL             "
 DC.B	"               SIGMA SOFT.            "
 DC.B	"                                      "
 DC.B	"                                      "
 DC.B	"                                      "
 DC.B	"                                      "

end:
 even

scrollm1:
 dc.b	"THIS DEMO IS MADE BY GOLDLEEK HOLLAND............"
end1:
 even
scrollm2:
 dc.b	" CONTACT OUR HQ PoBOX 48 8090 AA WEZEP HOLLAND"
 dc.b	"........     "
end2:
 even
zeiger:
 dc.l	0
zeiger1:
 dc.l	0
zeiger2:
 dc.l	0
oldclist:
 dc.l	0
gfxbase:
 dc.l	0
gfxname:
 dc.b	"graphics.library",0
 even
bitmap:
 dcb.w	4,0
plane1:
 dcb.l	20,0
rastport:
 dc.l	0
r_bitmap:
 dcb.l	30,0
rows:
 dc.b	2
 even
rows1:
 dc.b	2
 even
rows2:
 dc.b	2
 even
as:
 dc.l    0
